2 REM MANDELBROT-BEISPIELPROGRAMM
4 REM ---------------------------
6 REM (C) MARC 'BLACKJACK' RINTSCH
8 REM (P) TIGER DISK IN 1997
10 REM
12 X1 = -2 :REM REAL-MIN
14 X2 =  2 :REM REAL-MAX
16 Y1 = -2 :REM IMAGINAER-MIN
18 Y2 =  2 :REM IMAGINAER-MAX
20 :
22 MT = 15 :REM REKURSIONSTIEFE
24 :
26 CR = X1:REM AUSGANGSWERT FUER
28 CI = Y1:REM DIE KONSTANTE C
30 :
32 DX = (X2-X1)/39:REM ADDITIONS-
34 DY = (Y2-Y1)/24:REM KONSTANTEN
36 :
38 DIM C(4):REM FARBEN FESTLEGEN
40 C(0)=6:C(1)=4:C(2)=14:C(3)=3:C(4)=1
42 :
44 REM BILDSCHIRM MIT "[209]" FUELLEN
46 PRINT "[151][147]";
48 POKE 53280,0
50 POKE 53281,0
52 FOR Y=0 TO 999
54   POKE 1024+Y,81
56 NEXT
58 :
60 TI$="000000":REM STOPPUHR AUF 0
62 :
64 FOR Y=0 TO 24
66   FOR X=0 TO 39
68     T=0:R=0:I=0
70     RH = (R * R - I * I) + CR
72     IH = 2 * R * I + CI
74     R = RH
76     I = IH
78     IF (R*R+I*I)>4 THEN86
80     T=T+1
82     IF T=MT THEN C=0:GOTO88
84     GOTO70
86     C=C(T-INT(T/5)*5)
88     POKE 55296+Y*40+X,C
90     CR=CR+DX
92   NEXT
94   CI=CI+DY
96   CR=X1
98 NEXT
100 XX=TI/60
102 PRINT "ZEIT:";XX;"SEK."
104 POKE 198,0:WAIT 198,1